Function GetConstNo_ADO(myStr As String) As Integer
    Dim myInt As Integer
    ' ѱ`ܬڭ
    Select Case myStr
        Case "adBigInt": myInt = 20
        Case "adBinary": myInt = 128
        Case "adBoolean": myInt = 11
        Case "adBSTR": myInt = 8
        Case "adChapter": myInt = 136
        Case "adChar": myInt = 129
        Case "adCurrency": myInt = 6
        Case "adDate": myInt = 7
        Case "adDBDate": myInt = 133
        Case "adDBTime": myInt = 134
        Case "adDBTimeStamp": myInt = 135
        Case "adDecimal": myInt = 14
        Case "adDouble": myInt = 5
        Case "adEmpty": myInt = 0
        Case "adError": myInt = 10
        Case "adFileTime": myInt = 64
        Case "adGUID": myInt = 72
        Case "adIDispatch": myInt = 9
        Case "adInteger": myInt = 3
        Case "adIUnknown": myInt = 13
        Case "adLongVarBinary": myInt = 205
        Case "adLongVarChar": myInt = 201
        Case "adLongVarWChar": myInt = 203
        Case "adNumeric": myInt = 131
        Case "adPropVariant": myInt = 138
        Case "adSingle": myInt = 4
        Case "adSmallInt": myInt = 2
        Case "adTinyInt": myInt = 16
        Case "adUnsignedBigInt": myInt = 21
        Case "adUnsignedInt": myInt = 19
        Case "adUnsignedSmallInt": myInt = 18
        Case "adUnsignedTinyInt": myInt = 17
        Case "adUserDefined": myInt = 132
        Case "adVarBinary": myInt = 204
        Case "adVarChar": myInt = 200
        Case "adVariant": myInt = 12
        Case "adVarNumeric": myInt = 139
        Case "adVarWChar": myInt = 202
        Case "adWChar": myInt = 130
        Case Else: myInt = -1
    End Select
    GetConstNo_ADO = myInt
End Function

Function GetConstStr_ADO(myInt As Integer) As String
    Dim myStr As String
    Select Case myInt
        Case 20: myStr = "adBigInt"
        Case 128: myStr = "adBinary"
        Case 11: myStr = "adBoolean"
        Case 8: myStr = "adBSTR"
        Case 136: myStr = "adChapter"
        Case 129: myStr = "adChar"
        Case 6: myStr = "adCurrency"
        Case 7: myStr = "adDate"
        Case 133: myStr = "adDBDate"
        Case 134: myStr = "adDBTime"
        Case 135: myStr = "adDBTimeStamp"
        Case 14: myStr = "adDecimal"
        Case 5: myStr = "adDouble"
        Case 0: myStr = "adEmpty"
        Case 10: myStr = "adError"
        Case 64: myStr = "adFileTime"
        Case 72: myStr = "adGUID"
        Case 9: myStr = "adIDispatch"
        Case 3: myStr = "adInteger"
        Case 13: myStr = "adIUnknown"
        Case 205: myStr = "adLongVarBinary"
        Case 201: myStr = "adLongVarChar"
        Case 203: myStr = "adLongVarWChar"
        Case 131: myStr = "adNumeric"
        Case 138: myStr = "adPropVariant"
        Case 4: myStr = "adSingle"
        Case 2: myStr = "adSmallInt"
        Case 16: myStr = "adTinyInt"
        Case 21: myStr = "adUnsignedBigInt"
        Case 19: myStr = "adUnsignedInt"
        Case 18: myStr = "adUnsignedSmallInt"
        Case 17: myStr = "adUnsignedTinyInt"
        Case 132: myStr = "adUserDefined"
        Case 204: myStr = "adVarBinary"
        Case 200: myStr = "adVarChar"
        Case 12: myStr = "adVariant"
        Case 139: myStr = "adVarNumeric"
        Case 202: myStr = "adVarWChar"
        Case 130: myStr = "adWChar"
        Case Else: myStr = "Error"
    End Select
    GetConstStr_ADO = myStr
End Function
